home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / pasclern.zip / CHARDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-01  |  329b  |  18 lines
  1. PROGRAM char_demonstration;
  2.  
  3. VAR letter  : CHAR;
  4.     number  : CHAR;
  5.     dogfood : CHAR;
  6.  
  7. BEGIN
  8.   letter := 'P';
  9.   number := 'A';
  10.   dogfood := 'S';
  11.   WRITE(letter,number,dogfood);
  12.   letter := number;             (* This is now the 'A' *)
  13.   number := 'L';
  14.   dogfood := 'C';
  15.   WRITE(dogfood,letter,number);
  16. END.
  17.  
  18.